$file = $ARGV[0];
chomp($file);
open(BUFF,$file);
$line = <BUFF>;
chomp($line);
$line =~ s/\.gz//g;
@array1 = split("\t",$line);
shift(@array1);
$file2 = $ARGV[1];
chomp($file2);
open(BUFF1,$file2);
while($line = <BUFF1>)
{
	chomp($line);
	$line =~ s/\r//g;
	 $line =~ s/\n//g;
	$hash1{$line} ="k";
}
$k =0;
while($line = <BUFF>)
{
	chomp($line);
	$line =~ s/\r//g;
        $line =~ s/\n//g;
	@array = split(/\t/,$line);
	if($hash1{$array[0]} eq "k")
	{
		$array2[$k] = $line;
		$k++;
	}
	
}
open(BUFF,$file);
$line = <BUFF>;
chomp($line);
$ky =0;
while($line = <BUFF>)
{
        chomp($line);
	#print $line."\n";
	@array = split(/\t/,$line);
	if($hash1{$array[0]} ne "k")
        {
		$array4[0] = $array[0];
		for($i=1;$i<@array;$i++)
		{	
			$array4[$i] = 0;
		}
                for($i=0;$i<@array2;$i++)
		{
			@array3 = split("\t",$array2[$i]);
			#print "@array3\n";
			for($y=1;$y<@array3;$y++)
			{
			
				if($array[$y] >= $array3[$y])
				{
					$array4[$y]++;
					#print "success\n";
				}	
				
			}
                }
		$line = join("\t",@array4);
		$array5[$ky] = $line;
		$ky++;		
        }

}
#print $array5[0]."\n";
for($i=0;$i<@array1;$i++)
{
	$array6[$i] = 0;

}
for($i=0;$i<@array5;$i++)
{
	@arrayy = split("\t",$array5[$i]);
	for($y=1;$y<@arrayy;$y++)
	{	
		if($arrayy[$y] > 0)
		{
			$array6[$y-1]++;	
		}
	}
}
for($i=0;$i<@array1;$i++)
{
 	print "$array1[$i]\t$array6[$i]\n";
}
#print "@array6\n";	
#print "@array2\n";	
